Options results;signal on error;init:;userinfo x;useransi=result;if useransi="ON" then;do;esc="";red=esc"[31m";green=esc"[32m";yellow=esc"[33m";blue=esc"[34m";magenta=esc"[35m";cyan=esc"[36m";white=esc"[37m";end;else;do;esc="";red="";green="";yellow="";blue="";magenta="";cyan="";white="";end;bold="";boldoff="";CRLF='0d'x||'0a'x;systeminfo 'm';timr=result;systeminfo 'j';dateo=result;systeminfo "g";BBSname=result;userinfo 'a';name=result;sysoplog name' used the timebank';setnodelocation name' is using the Excellent Timebank....';if ~exists("configs:timebank.cfg") then call NOTEXIST;else;do;call open('configs',"configs:timebank.cfg",'r');bankdir=readln('configs');textdir=readln('configs');maildirec=readln('configs');userdir=readln('configs');rexxdir=readln('configs');uldir=readln('configs');cdir=readln('configs');maxbank=readln('configs');maxon=readln('configs');allow=readln('configs');passwd=readln('configs');SYSAC=readln('configs');free=readln('configs');maxtran=readln('configs');LA=readln('configs');WA=readln('configs');banstat=readln('configs');call close('configs');call open(ban,banstat,R);timused=readln(ban);tminbnk=readln(ban);lused=readln(ban);lusedby=readln(ban);nodeps=readln(ban);nowiths=readln(ban);totlynom=readln(ban);nomtrans=readln(ban);nomjmess=readln(ban);call close(ban);end;nameb=bankdir''name;begin:;CRLF='0d'x||'0a'x;systeminfo 'm';timr=result;userinfo 'a';name=result;systeminfo 8;lineno=result;bbsidentify sysop;SysopName=result;if exists(bankdir) then NOP;else;do;sysoplog 'WARNING 'bankdir' does not exist - you MUST create';call FREDO;end;if exists(Maildirec) then NOP;else;do;sysoplog 'WARNING 'Maildirec' does not exist - you MUST create';call FREDO;end;if exists(banstat) then NOP;else;do;sysoplog 'WARNING 'banstat' does not exist - you run config editor and create';call FREDO;end;if exists(userdir) then NOP;else;do;sysoplog 'WARNING 'userdir' does not exist - you MUST create';call FREDO;end;if exists(rexxdir) then NOP;else;do;sysoplog 'WARNING 'rexxdir' does not exist - you MUST create';call FREDO;end;if exists(uldir) then NOP;else;do;sysoplog 'WARNING 'uldir' does not exist - you MUST create';call FREDO;end;if exists(textdir) then NOP;else;do;sysoplog 'WARNING 'textdir' does not exist - you MUST create';call FREDO;end;usrdir=userdir;userdirec=bankdir;CLS;checkp:;if exists(nameb) then NOP;else call create;address command cdir'dir 'bankdir' >'uldir'userlist';call open('boy',nameb,'r');timb=readln('boy');used=readln('boy');nod=readln('boy');now=readln('boy');banrob=readln('boy');unbanrob=readln('boy');trans=readln('boy');mesw=readln('boy');last=readln('boy');call close('boy');used=used+1;examine:;if ~show('Libraries','rexxarplib.library') then;do;if ~addlib('rexxarplib.library',0,-30,0) then;do;sysoplog 'could not open rexxarplib.library in timebank.trans';call examine;end;end;uuuname=Maildirec||compress(name)'.Bankmail';ff=exists(uuuname);if ff="1" then;do;sendfile textdir"TMABOVE";sendfile uuuname;sendfile textdir"TMBELOW";address command 'delete' uuuname;Query RED"Press "GREEN"RETURN!!"WHITE;end;menu:;cls;sendfile textdir"TIMEBANK";Transmit;TRANSMIT YELLOW" Your Bank Balance :"WHITE timb;TRANSMIT YELLOW" Your Online Time Left :"WHITE timr;UserInfo o;Acces=Result;if acces<SYSAC then call ttetu;else;do;transmit CRLF||GREEN"You also have access to the Sysop Module - "CYAN" {/}";end;ttetu:;Query GREEN||CRLF"Please select "CYAN"{D W A P U T R M S B O C Q G}: "CYAN;jbjb=UPPER(result);if jbjb='Q' then call finish;if jbjb='D' then call dep;if jbjb='W' then call wth;if jbjb="A" then call depall;if jbjb="G" then call goodbye;if jbjb='P' then call Pager;if jbjb="U" then call userlist;if jbjb="S" then call stats;if jbjb="O" then call VIEWO;if jbjb="C" then call CLOCK;if jbjb="T" then call transfer;if jbjb="R" then call Robo;if jbjb="M" then call messy;if jbjb="B" then call banstat;if jbjb="/" then call USECONF;if jbjb='###PANIC' then call PANICO;if jbjb='*' then call fraud;call examine;dep:;query CRLF YELLOW"("timr-4" mins)"||" Deposit how much ? "WHITE;amtdep=result;if amtdep>timr-4 then call deptomuch;if amtdep<0 then call slyone;if amtdep='###PANIC' then call PANICO;timr=timr-amtdep;settime timr;timb=amtdep+timb;tminbnk=tminbnk+amtdep;nod=nod+1;nodeps=nodeps+1;totlynom=totlynom+1;call examine;wth:;maxwth=255-timr;if maxwth>timb then maxwth=timb;query CRLF YELLOW"(Max. Withdraw - "CYAN maxwth WHITE" mins.)"||" Withdraw how much ? "magenta;amtwth=result;if amtwth='###PANIC' then call PANICO;if amtwth>timb then call notenough;if amtwth+timr>255 then call tomuch;if amtwth<0 then call slyone;timr=timr+amtwth;settime timr;timb=timb-amtwth;tminbnk=tminbnk-amtwth;now=now+1;nowiths=nowiths+1;totlynom=totlynom+1;call examine;create:;call open('wr',nameb,'w');call writeln('wr',free);call writeln('wr',0);call writeln('wr',0);call writeln('wr',0);call writeln('wr',0);call writeln('wr',0);call writeln('wr',0);call writeln('wr',0);call writeln('wr',"Never Before!");call close('wr');transmit CRLF CYAN ' An Account has been Created for you - ';if free ~>0 then NOP;else;do;transmit YELLOW' ' sysopname CYAN'has given you' free CYAN' mins free Time. (What a Generous Guy)'WHITE;end;Query RED"Press "GREEN"RETURN!!"WHITE;return;notenough:;transmit CRLF BLUE"Sorry that exceeds your current balance of "CYAN timb WHITE;Query RED"Press "GREEN"RETURN!!"WHITE;call examine;tomuch:;transmit CRLF BLUE"Sorry that would exceed the maximum allowed time of 255 !!!"WHITE;Query RED"Press "GREEN"RETURN!!"WHITE;call examine;deptomuch:;transmit CRLF BLUE'Sorry you can not deposit that much !!!'WHITE;Query RED"Press "GREEN"RETURN!!"WHITE;call examine;deptoomuch:;transmit CRLF BLUE'Sorry you can not deposit that much <G>!!!'WHITE;Query RED"Press "GREEN"RETURN!!"WHITE;call timeadd;finish:;date=date();call open('wr',nameb,'w');call writeln('wr',timb);call writeln('wr',used);call writeln('wr',nod);call writeln('wr',now);call writeln('wr',banrob);call writeln('wr',unbanrob);call writeln('wr',trans);call writeln('wr',mesw);call writeln('wr',date);call close('wr');call bankisi;CLS;Transmit GREEN" You have been using Timebank by David Lascelles, call his BBS,";Transmit WHITE" On +44(0)191 3832181 for all the latest Transamiga files and";Transmit CYAN" for loads of other files and mail - (2:256/503, 39:131/2)";Transmit "";Transmit "";say "Call Creepys BBS - +44(0)191 3832181 for more TA files or for info about ";say "AmNet - the Amiga Network -- Creepys Amiga BBS 2:256/503";query YELLOW' Press Return to return to 'bbsname'';newline;shutdown;call panico;depall:;queryN CRLF RED"Are you sure you want to deposit all time & leave ? "YELLOW;sure=UPPER(result);if sure='###PANIC' then call PANICO;if sure='Y' then;do;timd=timr-1;timb=timd;timr=timd+2;settime timr;nod=nod+1;nodeps=nodeps+1;totlynom=totlynom+1;call cherio;end;call examine;userlist:;CLS;newline;newline;transmit Green"";sendfile uldir'userlist';newline;newline;queryN GREEN'Again ?'WHITE;again=UPPER(result);if again='###PANIC' then call PANICO;if again="Y" then call userlist;else call examine;transfer:;CLS;newline;newline;sendfile uldir'userlist';newline;query YELLOW"Enter the name of the user you wish to transfer money to : "RED;nameut=UPPER(result);if nameut='###PANIC' then call PANICO;tuname=bankdir''nameut;if tuname=nameb then call YOU;if exists(tuname) then call amount;call WHO;amount:;query CRLF magenta"Enter amount to be transfered : "YELLOW;amountt=result;if amountt='###PANIC' then call PANICO;if amountt<0 then call slyone;if amountt>0 then call check;else call examine;end;goodbye:;queryN CRLF RED'Are you sure you want to leave 'YELLOW bbsname;sure=UPPER(result);if sure='###PANIC' then call PANICO;if sure='Y' then call cherio;else;do;call examine;cherio:;CLS;Sendfile textdir'BYE';call open('wr',nameb,'w');call writeln('wr',timb);call writeln('wr',used);call writeln('wr',nod);call writeln('wr',now);call writeln('wr',banrob);call writeln('wr',unbanrob);call writeln('wr',trans);call writeln('wr',mesw);call writeln('wr',last);call bankisi;call close('wr');hangup;shutdown;exit;slyone:;CLS;transmit CRLF RED"I am doing GCSE Maths you know - Don't try the minus one"WHITE;transmit ;Query RED"Press "GREEN"RETURN!!"WHITE;call finish;check:;if amountt>timb then;do;transmit BLUE"Sorry you don't have that much !!!"WHITE;call menu;end;else;do;call checko;end;checko:;if amountt>maxtran then;do;transmit RED'Sorry maximum to transfer is 'CYAN maxtran'' WHITE;call amount;end;else;do;timb=timb-amountt;trans=trans+1;nomtrans=nomtrans+1;call open('ttwar',tuname,'r');tttimb=readln('ttwar');ttused=readln('ttwar');ttnod=readln('ttwar');ttnow=readln('ttwar');ttbanrob=readln('ttwar');ttunbanrob=readln('ttwar');tttrans=readln('ttwar');ttmesw=readln('ttwar');ttlast=readln('ttwar');call close('ttwar');tot=amountt+tttimb;tttimb=tot;call open(dde,tuname,'W');call writeln(dde,tttimb);call writeln(dde,ttused);call writeln(dde,ttnod);call writeln(dde,ttnow);call writeln(dde,ttbanrob);call writeln(dde,ttunbanrob);call writeln(dde,tttrans);call writeln(dde,mesw);call writeln(dde,last);call close(dde);Query CRLF||YELLOW"Do you wish "CYAN||nameut||YELLOW" to know you sent it ? (y/N) ";fred=upper(result);if fred="N" then call examine;if words(nameut)>1 then tu=compress(nameut);mailname=Maildirec||tu||.Bankmail;if exists(mailname) then;do;Query CRLF||GREEN"A Message already exists - this will be appended to it.";address command "copy "mailname" ram:message2";exiso=1;end;fred="t:ede";GG=name" has transferred "amountt" time into your account, "date();call open(w,fred,W);call writeln(w,"");call writeln(w,GG);call writeln(w,"");call close(w);if exiso=1 then;do;address command "join t:ede t:fred as "mailname;address command "join ram:message2 "mailname" as t:fred";address command "delete "mailname;address command "copy t:fred "mailname;call menu;end;address command "copy "fred mailname;call examine;fraud:;if allow='0' then call examine;else;do;sysoplog name' gained access to Fraud Screen';CLS;sendfile textdir"FRAUD";transmit CRLF YELLOW'Hi 'name' you have found the secret door to the timebank.'WHITE;transmit CRLF GREEN'This is one of the features added by David Lascelles to timebank,'WHITE;transmit RED' and I hope you like it.......'WHITE;Query WHITE'Please type in the Password -->>'BLUE;password=UPPER(result);if password='###PANIC' then call PANICO;If password=passwd then call timeadd;allow='0';end;call examine;timeadd:;Query YELLOW'How much want to add to your online time (Max 'maxon') -=>>'GREEN;ontim=result;if ontim='###PANIC' then call PANICO;if ontim>maxon then call deptoomuch;timr=(timr+result);settime timr;Sysoplog name' added 'ontim' minutes of online time';Query GREEN'And in the bank (Max 'maxbank') -=>'YELLOW;btim=result;if btim='###PANIC' then call PANICO;if btim>maxbank then call deptoomuch;Sysoplog name' also added 'btim' of time into bank';timb=timb+btim);call examine;exitme:;end;pager:;call "bbs:rexx/chat.trans";Call examine;Robo:;CLS;sendfile textdir"ROBBER";QUERYY GREEN"Are you sure you want to rob the Bank ???"YELLOW;who=UPPER(RESULT);if who='###PANIC' then call PANICO;if who="Y" then call BANKROB;if who="N" then call examine;BANKROB:;burg=1;do while burg=1;outcome=random(1,10);newline;Query RED"Press "GREEN"RETURN"RED" to break in......"WHITE;fred=result;if fred='###PANIC' then call PANICO;if outcome=1|outcome=2|outcome=3|outcome=4 then call failure;if outcome=5|outcome=6|outcome=7 then call success;if outcome=8|outcome=9|outcome=10 then call caught;call examine;failure:;TRANSMIT CRLF BLUE"The alarms went off, but you escaped without being caught,";TRansmit GREEN" BUT without the time..."YELLOW" It could have been worse.";query RED"Press "CYAN"RETURN"RED" to return to Extras Menu";fred=result;if fred='###PANIC' then call PANICO;unbanrob=unbanrob+1;call examine;success:;Transmit CRLF BLUE"The alarms went off, but you escaped without being caught,";TRansmit YELLOW" AND with "WA" mins time... Well Done.....";timr=timr+WA;settime timr;query RED"Press "CYAN"RETURN"RED" to return to Extras Menu";fred=result;banrob=banrob+1;call examine;caught:;Transmit CRLF RED"The alarms went off, and you were caught - Sorry,but the";Transmit RED"Manager demands that you give him " LA " mins... Sorry";Transmit RED" I hope you have it........";Query RED"Press "GREEN"RETURN!!"WHITE;if timr<LA+3 then call checkbank;else;do;timr=timr-LA;settime timr;unbanrob=unbanrob+1;call examine;checkbank:;if timb<LA+3 then call desperate;else;do;timb=timb-LA;call examine;desperate:;transmit CRLF RED"Sorry you don't have either 20 minutes in your bank or online time";transmit BLUE"Therefore I'm going to risk adding your cash together if it fails then";transmit GREEN"Then you will be logged off and loose all your onlien and bank time";Query WHITE"You Shouldn't rob banks you know!!!! Press Return to Continue";if timr+timb>LA then call okay;else;do;timb=timb-timb;timr=timr-timr;settime timr;call cherio;okay:;timr=timr+timb;timr=timr-LA;settime timr;call examine;end;end;call examine;messy:;options results;yes=1;no=0;done=0;userinfo 'a';usename=result;usename=translate(usename,xrange('a','z'),xrange('A','Z'));cow=words(usename);tamp='';do a=1 to cow;tamp=tamp||upper(left(word(usename,a),1))||substr(word(usename,a),2)||' ';end;usename=left(tamp,length(tamp)-1);do until done=1;transmit " "CYAN;sendfile uldir'userlist';transmit WHITE'';transmit YELLOW'Enter the username to send the Bankmail message to';QUERY RED'RETURN'YELLOW' to quit >>>'GREEN;usersname=result;if username='###PANIC'|usersname='RESULT' then;do;call The_End;end;userfilee=userdirec||usersname;done=1;if ~exists(userfilee) then;do;userfilee=usrdir'@'usersname;if ~open('in',userfilee,'r') then;do;transmit '';transmit GREEN"I can't find "||usersname||" in the user list!!"white;transmit '';done=0;iterate;end;usersname=readln('in');call close('in');userfilee=userdirec||usersname;if ~exists(userfilee) then;do;transmit '';transmit GREEN"I can't find "||usersname||" in the user list!"white;transmit '';done=0;end;end;end;if words(usersname)>1 then usename=compress(usersname);mailname=Maildirec||usename'.Bankmail';if exists(mailname) then;do;Query CRLF||GREEN"A Message already exists - this will be appended to it...";address command "copy "mailname" ram:message1";exiso=1;end;if exists(rexxdir||'editor.trans') then;do;address command 'rename' rexxdir||'editor.trans' rexxdir||'ed.tr';end;Textedit;mailfilee=result;if mailfilee="###ABORTED" then;do;transmit;transmit RED'Message Aborted!';transmit;signal The_End;end;if exists(rexxdir||'ed.tr') then;do;address command 'rename' rexxdir||'ed.tr' rexxdir||'editor.trans';end;bufferflush;address command 'echo >'mailname;if open(filee,(mailname),'A') then;call writeln filee,"From: Sir "||name" !!";call writeln filee," ";call close filee;if exiso=1 then;do;address command "join ram:message1 "mailname" as t:fred";end;address command "join t:fred "mailname mailfilee 'as t:Bankmail.temp';call open filee,("t:Bankmail.temp"),"A";call writeln filee," ";call close filee;address command 'delete ' mailname ' QUIET';address command 'copy t:Bankmail.temp' mailname;mesw=mesw+1;nomjmess=nomjmess+1;The_End:;Call examine;FREDO:;transmit "Please inform Sysop to check Logs";transmit "As there is an error in his configs";transmit "Sorry.......... Try again tommorow!";Query RED"Press "GREEN"RETURN!!"WHITE;exit 0;PANICO:;call open('wr',nameb,'w');call writeln('wr',timb);call writeln('wr',used);call writeln('wr',nod);call writeln('wr',now);call writeln('wr',banrob);call writeln('wr',unbanrob);call writeln('wr',trans);call writeln('wr',mesw);call writeln('wr',dateo);call close('wr');exit 0;STATS:;CLS;transmit green' User Stats';transmit '';transmit '';transmit white' Name : 'yellow name;transmit white' Date : 'blue dateo;transmit white' Time in bank : 'magenta timb;transmit white' Times bank has been used : 'cyan used;transmit white' Last time used : 'red last;transmit '';transmit white' Number of Deposits : 'yellow nod;transmit white' Number of Withdrawls : 'blue now;transmit white' Total Number of Transactions : 'magenta nod+now;transmit '';transmit white' Number of bank roberies : 'cyan banrob+unbanrob;transmit white' Successful : 'red banrob;transmit white' Unsuccessful : 'yellow unbanrob;transmit '';transmit white' Number of Transfers : 'blue trans;transmit white' Number of messages written : 'magenta mesw white;transmit '';transmit '';Query RED"Press "GREEN"RETURN!!"WHITE;call examine;you:;transmit CRLF CYAN"Hey may, thats you!!!!!";query RED"Press "GREEN"RETURN!!"WHITE;call examine;banstat:;CLS;transmit green" Bank Stats";transmit '';transmit '';Transmit "This bank has been used "timused" times";Transmit "and has a total of "tminbnk" minutes in it!!!";Transmit "the last person to grace its rooms was "lusedby;Transmit "who used it on "lused;Transmit "there have been "totlynom" transactions, of which "nodeps" were deposits";Transmit "and "nowiths" were withdrawls. There have been "nomtrans" transfers and a";Transmit "total of "nomjmess" messages written, so get writing and transfering!";Transmit "";Transmit "";query RED"Press "GREEN"RETURN!!";call examine;WHO:;transmit CRLF CYAN"That bloke(ss) doesn't exist!!!!";query RED"Press "GREEN"RETURN!!"WHITE;call examine;VIEWO:;CLS;newline;newline;sendfile uldir'userlist';newline;QUERY yellow"Whose Stats whould you like to view ?";other=upper(result);if other='###PANIC' then call PANICO;guid=bankdir''other;if upper(other)=upper(name) then call YOU;else;do;if exists(guid) then call des;else;do;call who;end;des:;call open(dde,guid,'r');tttimb=readln(dde);ttused=readln(dde);ttnod=readln(dde);ttnow=readln(dde);ttbanrob=readln(dde);ttunbanrob=readln(dde);tttrans=readln(dde);ttmesw=readln(dde);ttlast=readln(dde);call close(dde);CLS;transmit green' User Stats';transmit '';transmit '';transmit white' Name : 'yellow other;transmit white' Date : 'blue dateo;transmit white' Time in bank : 'magenta tttimb;transmit white' Times bank has been used : 'cyan ttused;transmit white' Last time used : 'red ttlast;transmit '';transmit white' Number of Deposits : 'yellow ttnod;transmit white' Number of Withdrawls : 'blue ttnow;transmit white' Total Number of Transactions : 'magenta ttnod+ttnow;transmit '';transmit white' Number of bank roberies : 'cyan ttbanrob+ttunbanrob;transmit white' Successful : 'red ttbanrob;transmit white' Unsuccessful : 'yellow ttunbanrob;transmit '';transmit white' Number of Transfers : 'blue tttrans;transmit white' Number of messages written : 'magenta ttmesw white;transmit '';transmit '';Query RED"Press "GREEN"RETURN!!"WHITE;call examine;NOTEXIST:;transmit "Please inform Sysop to check Logs";transmit "As there is an error in his configs";transmit "Sorry.......... Try again tommorow!";Sysoplog "You need to run ConfigTB -timebank.cfg is not present";Query RED"Press "GREEN"RETURN!!"WHITE;end;end;USECONF:;UserInfo 'o';Acces=Result;if acces<SYSAC then sysoplog "User tried to use Sysop Module in Timebank";call examine;end;transmit " ";transmit BOLD||GREEN"User Config Editor"RED;transmit "~~~~~~~~~~~~~~~~~~"BOLDOFF;transmit "";transmit YELLOW"This is the a maintenance proggy that is also in the Config.rexx It";transmit "is for Sysops to edit the amount of time, etc their users have. In this";transmit "version the only variable which is definable is the amount of time, as";transmit "this is the only one which I think is useful to change - if however";transmit "kilobytes or similar things come in then you will be able to edit these.";transmit "";transmit "";GEGOE:;Transmit Green"";address command cdir'dir 'bankdir' >'uldir'userlist';sendfile uldir'userlist';transmit "";query CYAN"Whose config would you like to edit ? (Q to quit) "Green;othera=upper(result);if othera="Q" then call examine;else;do;userc=bankdir''othera;end;if ~exists(userc) then;do;transmit "";transmit RED"WhO iS "magenta"tHaT"RED" ????"CYAN" I think you had better re-enter it!!";query GREEN"Press"RED" ReTuRn"GREEN" to continue";call GEGOE;end;call open(dde,userc,'r');tttimb=readln(dde);ttused=readln(dde);ttnod=readln(dde);ttnow=readln(dde);ttbanrob=readln(dde);ttunbanrob=readln(dde);tttrans=readln(dde);ttmesw=readln(dde);ttlast=readln(dde);call close(dde);transmit " ";transmit Green' User Stats';transmit '';transmit '';transmit magenta' Name : 'green||othera;transmit yellow' Time in bank : 'magenta||tttimb;transmit cyan' Times bank has been used : 'yellow||ttused;transmit WHITE' Last time used : 'cyan||ttlast;transmit '';transmit red' Number of Deposits : 'white||ttnod;transmit green' Number of Withdrawls : 'red||ttnow;transmit magenta' Total Number of Transactions : 'green||ttnod+ttnow;transmit '';transmit yellow' Number of bank roberies : 'magenta||ttbanrob+ttunbanrob;transmit cyan' Successful : 'yellow||ttbanrob;transmit white' Unsuccessful : 'cyan||ttunbanrob;transmit '';transmit red' Number of Transfers : 'white||tttrans;transmit green' Number of messages written : 'red||ttmesw;transmit '';transmit '';Query CYAN"How much time do you want user to have in bank ? ("tttimb") "Green;ffred=result;if ffred="RESULT" then ffred=tttimb;call open('wr',userc,'w');call writeln('wr',ffred);call writeln('wr',ttused);call writeln('wr',ttnod);call writeln('wr',ttnow);call writeln('wr',ttbanrob);call writeln('wr',ttunbanrob);call writeln('wr',tttrans);call writeln('wr',ttmesw);call writeln('wr',ttlast);call close('wr');transmit "";transmit WHITE"Ok - "CYAN"Thank You!!";Query RED"Press"BOLD||Green "RETURN"BOLDOFF RED"for Config menu!";CLS;call gegoe;exit 10;end;CLOCK:;line.0.1=yellow" ###### ";line.1.1=yellow" ### ";line.2.1=yellow" ###### ";line.3.1=yellow" ###### ";line.4.1=yellow" #### ";line.5.1=yellow" ###### ";line.6.1=yellow" ###### ";line.7.1=yellow" ###### ";line.8.1=yellow" ###### ";line.9.1=yellow" ###### ";hyp.1=yellow" ## ";fred=" ";line.0.2=cyan" # # ";line.1.2=cyan" # ## ";line.2.2=cyan" # ";line.3.2=cyan" # ";line.4.2=cyan" ## ## ";line.5.2=cyan" # ";line.6.2=cyan" # ";line.7.2=cyan" ## ";line.8.2=cyan" # # ";line.9.2=cyan" # # ";hyp.2=cyan" ## ";line.0.3=green" # # ";line.1.3=green" ## ";line.2.3=green" ## ";line.3.3=green" ##### ";line.4.3=green" ## ## ";line.5.3=green" ###### ";line.6.3=green" ###### ";line.7.3=green" ## ";line.8.3=green" ###### ";line.9.3=green" ###### ";hyp.3=green" ";line.0.4=red" # # ";line.1.4=red" ## ";line.2.4=red" ## ";line.3.4=red" # ";line.4.4=red" ####### ";line.5.4=red" # ";line.6.4=red" # # ";line.7.4=red" ## ";line.8.4=red" # # ";line.9.4=red" # ";hyp.4=red" ## ";line.0.5=magenta" ###### ";line.1.5=magenta" #### ";line.2.5=magenta" ###### ";line.3.5=magenta" ###### ";line.4.5=magenta" ## ";line.5.5=magenta" ###### ";line.6.5=magenta" ###### ";line.7.5=magenta" ## ";line.8.5=magenta" ###### ";line.9.5=magenta" # ";hyp.5=magenta" ## ";time=time();dig1=substr(time,1,1);dig2=substr(time,2,1);dig3=substr(time,4,1);dig4=substr(time,5,1);dig5=substr(time,7,1);dig6=substr(time,8,1);a=dig1;b=dig2;c=hyp;d=dig3;e=dig4;f=hyp;g=dig5;h=dig6;transmit " ";transmit magenta"The current time is: ";transmit "";do i=1 to 5;transmit bold''fred||line.a.i||line.b.i||hyp.i||line.d.i||line.e.i||hyp.i||line.g.i||line.h.i;end;transmit ""boldoff;query GREEN"Press"RED" ReTuRn"GREEN" to continue";call examine;Panico:;ShutDown;Exit;return;BANKISI:;timused=timused+1;lusedby=name;lused=date;call open(ban,banstat,W);Call writeln(ban,timused);call writeln(ban,tminbnk);call writeln(ban,lused);call writeln(ban,lusedby);call writeln(ban,nodeps);call writeln(ban,nowiths);call writeln(ban,totlynom);call writeln(ban,nomtrans);call writeln(ban,nomjmess);call close(ban);RETURN
